ANnnnno 


RRRRRRRRRRRR 
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RRRRRRRRRRRR 
RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR =RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
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a | LLL) 
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**F ILE**1D**BASEXITHA 


68888888 AAAAAA SSSSSSSS EEEEEEEEEE Xxx XX III] TTTTTTTTTT HH HH AAAAAA 

BBBBBBBB AAAAAA SSSSSSSS EEEEEEfEEE Xxx XX III1I1 TTTTTTTTTT HH HH AAAAAA 

BB BB AA AA SS EE XX XX I] TT HH HH AA AA 

BB BB AA AA SS EE XX XX I] TT HH HH AA a6 

BB BB AA AA SS EE XX XX I] TT HH HH AA ‘val 

8B BB AA AA SS EE XX XX I] TT HH HH AA Aa 

BBBBBBBB Ab AA SSSSSS EEEEEEEE XX I] TT HHHHHHHHHH = AA fol 

6B bb AA SSSSSS EEEEEEEE XX I] TT HHHHHHHHHH = AA aa 

8B BB AAAAAAAAAA SS EE XX XX I] TT HH HH AAAAAAAAAA 

8B BB AAAAAAAAAA SS EE XX XX I] TT HH HH AAAAAAAAAA 

BB BB AA AA SS EE XX XX I] TT HH HH AA AL cece 
BB BB AA Ab SS EE XX XX I] TT HH HH AA AR cose 
BBBBBBBB val AA SSSSSSSS EEEEEEELEE Xx XX T1111] TT HH HH AA AA cece 
BBBBBBBB ab AA SSSSSSSS EEEEEEEEEE Xxx XX III] TT HH HH AA aa cove 
LL 11311] SSSSSSSS 

LL 111111 SSSSSSSS 

LL I] S$ 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

iL I] SS 

LL I] SS 

LLLLLLLELLL III] SSSSSSSS 

LLLELELLLLL III] SSSSSSSS 
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12 1 
BASSSEXKIT_HANDL Jo~3e0-13 4 2 i $6746 AX-11 Bliss-32 op hes Page 
4-Sep-1984 4:5 BASRTL.SRC JBASEXITHA.B32;1 
1 p00) MODULE BASSSEXIT RANDL ( ' BASIC exit handle 
§ 0008 Toe ENT = '1=016' ! File: BASEXITHA, B32 Edit: PL1016 
4 a908 1 BEGIN 
5 0005 1! 
$ Boe : i pee eerererererereerenerarerereeeerererereeeererereeeerereeeeeerereeereeeetet 
'e * 
8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
% 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
19 apie : :* ALL RIGHTS RESERVED. * 
: ® 
\ pore 1 !* THIS SOFTWARE + FURNISHED UNDER A LICENSE = MAY BE USED AND copies * 
1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS TWARE OR ANY OTHER ®* 
15 0015 1 '* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
16 Bote 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 Baie : ° TRANSFERRED. * 
‘* ® 
19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$ oo83 : ? CORPORATION. * 
'® * 
23 $038 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
25 0025 1 !« * 
26 0026 1 !*# * 
27 0027 1 i eee eeeeeeeeeeeeeeeeeeeneeedeeeeeteeeeeeeereeeeeeeeeeneeteeneeeeeeeneeeerere 
28 0028 1 
29 0029 1 !+¢ 
3 Bo90 ; FACILITY: BASIC support library - Exit handler 
32 003 1: ABSTRACT: 
33 0033 1! 
34 00 1! This module is used when the image exits to do 
35 0035 1} BASIC post erpcess ing. It purges 1/0 buffers 
* boss : and closes files with proper stesentetun. 
36 td ! ENVIRONMENT: User access mode; mixture of AST level or not. 
40 0040 1 ! Author: John Sauter, Creation date: 23-JAN-1979 
41 0041 1! 
? sa 1 MODIFIED BY: 
as 0044 1 ! 1-001 = Original from FOROPEN. ips geist 
45 0045 1 | 1-002 = Call OTS$$PURGE IOBU to flush ony sBcLobe buffer. JBS 24-JAN-1979 
46 Bo06 1 ' 1-003 - Move call to OTSSSPURGE_I0BU to OTSS$CLO 3 _pite. JBS 24-JAN-1979 
47 0047 1 | 1-004 = Change linkage for OTSSPUSH_CCB to JSB_CB~PUSH and for 
48 0048 1} wis oof ccB a 158. CB_POP. JBS 25-J Rat 999° 
49 0049 1 | 1-005 - wo dollar signs for non-user entries. JBS 26-JAN-1979 
50 0050 1! 1-006 - had OTSs8CL OSE AL JBS 04-JUN-1979 
51 0051 1 | 1-007 = Change 0 BASICS ecific exit handler. JBS jg ath be 
26 Bogs 1 § 1-008 = Call SASSSPU R_10_ CLO to flush all buffers. 76S 20-AUG-1979 
5 0053 1 | 1-009 = Make BASSSCLOSE ALL global, for BASSSRUN INIT. JBS, mints 979 
54 0054 1 ! 1-010 - Signal CLOSE errors, but make the 13sgey ‘warning’ so we 
55 0055 1! on't lose control. JBS 24-AUG-1 
56 0056 1 ! 1-011 = Do explicit sional’ ing gt CLOSE errors, since OTSS$SCLOSE_FILE 
57 0057 1: doesn't. JBS 27-AUG-197 


Bi Be Be Oe Se Oe Be Be He Be Be Be Be Be He Be Se Be Oe Se Se Be Be BH See Oe Be Os oe Be Se Se Se Oe Oe Oe Se Se Oe Oe Oe Oe Oe Oe Se Oe Oe He Be Oe BH Se Oe Oe Oe we 
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1 
BASSSEX1 T_HANDL 1b-se “19 226: AX-11 Bliss-32 V4.0-74 Page 2 
paste 13-8 08- 1 3be 90:40:48 BASRTL.SRCJB BASEXI ITHA.B52;1 . (1) 
8 038 1 ! 12012 = Give CLOSE_ALL an optional parameter, so can gigse all of the 
9 1! streams grinec ted to a base file. JBS 2 “SEP -1 
60 Be0 1! 1-013 - clear BASSSL_XIT_LOCK upon entry to the exit handler. This 
61 |B allows user trite qenetere to perform 1/0, and get the proper 
6 Bos 1! cleanup ugon lLeavi "Oo 
6 0065 1! 1-014 = if There is a file — Z have connected to ( via open 
64 0064 1! clau J CONNECT) then = rodlgt and 2 first and then close X. 
65 0065 1! FM 12-aug-81. 
66 0066 1! 1-015 = L1BSSTOP should be declared EXTERNAL. PLL 20-NOV-81 
67 0067 1 ! 1-016 = Edit 1-014 breaks virtual files. BASSS$CLOSE_ALL no Longer 
68 0068 1! tried to close them if be were open eevee LUBSV_M_STR_C 
9 0069 1! was not set. PLL 24-Feb-8 
0 0070 1 !-<- 
71 0071 1 
72 0072 1 !<@LF/PAGE> 


4 
BASSSEXIT_HANDL 16-Sep-1984 00:26:4 AX-11 Bliss-32 v4.0-74 Pa 
1-016 1enee=13he F98b:8$ = — FAXSAT Ok tesa se vt OT es ” 


74 073 1! 

75 074 1 ! SWITCHES: 

Ho Be 

A] 0077 ; SWITCHES ADDRESSING MODE (EXTERNAL = GEWERAL, NONEXTERNAL = WORD_RELATIVE); 

80 0079 1! 

81 0080 1 ! LINKAGES: 

8 0081 1! 

8 0082 1 / 

ge 34 : REQUIRE *RTLIN:OTSLNK'; ! Define all Linkages 

86 0515 1! 

87 0514 1 ! TABLE OF CONTENTS: 

88 0515 1! 

89 0516 1 

90 0517 1 FORWARD ROUTINE 

9" 0518 1 BASSSDECL_EXITH : NOVALUE, ! Declare EXIT handler 

4 0519 1 EXIT HANDCER : NOVALUE, ! Exit Handler 

3 0520 1 BASSSCLOSE ALL : NOVALUE, ' Close all files 

94 0521 1 TRY TO CLOSE : CALL_CCB NOVALUE, ! Subroutine for EXIT_HANDLER 

95 05 ; 1 CLOSE_RANDLER: ' Handler for CLOSE errors 

96 05 1 

97 05246 1! 

98 0525 1 ! INCLUDE FILES: 

a4 0526 1! 
100 0527 1 : ; 
4 p28 : REQUIRE ‘RTLML:OTSLUB'; ! Logical Unit Block definitions 
103 0669 1 REQUIRE ‘RTLIN:OTSMAC'; ! macros 
104 0863 1 
4 564 } REQUIRE *RTLIN:BASIOERR’; ! 1/0 error codes 
H+ 14 ot8 : REQUIRE *RTLIN:RTLPSECT'; ! Define DELCARE_PSECTS macro 
195 ote } LIBRARY "RTLSTARLE'; ! STARLET Library for macros and symbols 
111 1016 1! 
a1¢ 1017 1 ! MACROS: 
11 1018 1! 
114 1019 1! NONE 
115 1020 1! 
116 1021 1 ! EQUATED SYMBOLS: 
117 1066 1! 
118 1025 1! NONE 
119 1026 1! 

130 1025 1 ! PSECT DECLARATIONS: 

121 1026 1! < 
\¢¢ HSH : DECLARE _PSECTS (BAS); ! declare PSECTs for BASS facility 
124 106) 1 ! OWN STORAGE: 

125 1030 1! 

126 103) 1 

gf 10 ; 1 ; ake 
128 1035 1 EXIT_REASON, ! VMS stuffs with reason for exiting 
1¢8 1034 1 EXIT_BLOCK : VECTOR (4) INITIAL (0, : ; : 

130 1035 1 ! Filled in by VMS with forward Link to next EXIT control block 


ete 


PARTTERET ee 18-5 =§007 138% 90: go: ¢$ AX-11 Bliss-32 V4.0 ri 4 Page 4 


-Sep-1 BASRTL.SRCJBASEXITHA (2) 
1 ° ' Set to EXIT_HANDLER if fi 3 sets up EXIT handler 
5 i Set to arg Count (1) if RTL sets up EXIT handler 
5; i Set to EXIT “REASON if RTL tone up EXIT handler 
5 GLOBAL 
BASSSL_XIT_LOCK : INITIAL (0); ! Clear if no handler Linked yet 


' 
(Used to make sure only one handler even if ASTs) 
i EXTERNAL REFERENCES: 
EXTERNAL LITERAL 
OTSS_FATINTERR; 
EXTERNAL ROUTINE 
LIB 


: NOVALUE, 
BAS$$CB_PUSH : JSB_CB_PUSH NOVALUE, 
ttt POP : — CB _ POP NOVALUE, 


NOVACUE, 
BAS$$PUR_TO O-CL0 : NOVALUE , 
OTS$$SCLOSE FILE : CALL_CCB, 
BASSSSIGNAC_IO : CALL_CCB NOVALUE; 


OTS Fatal Internal Error 


! Signal a fatal error 

' Load register CCB 

! Done with register CCB 

' Get next LUN that might be open 
' Purge all 1/0 buffers 

! Internal file closer 

! Signal a BASIC 1/0 error 


ee ed ee ed 
> 
(7) 
Sad 
Mm 
>a 
4 
cre 
Hidcnm~eiTts 


WaIWaTeale. altar oF oF oP oF oF at oF oF oF a 

ee ee ee eee ee ee ee ee ee ee ee ee ee ee 
SSSSSSSSSSSPP2P2222 222 Reo 
HPPAAGA MAM BEE EEE EEE 
SODNA NEA SOON UNE WN" OOOO 
a kk kk kk dt 


MEW 0 COON YVFwr-O0O@ 


wo 
BASSSEX1T_HANDL 19-300-1986 99: 6:46 ree Bliss-32 viata aS Page 5 
1-016 14-Sep-1984 11:54:5 BASRTL.SRCIJBASEXITHA.B32;1 (3) 
| 
157 1061 1 GLOBAL ROUTINE BASSSDECL_EXITH ! Declare VMS EXIT handler 
158 1 6 1 : NOVALUE = : 
159 1063 1 | 
160 1064 1 !44 
161 1065 1 ! FUNCTIONAL DESCRIPTION: 
188 1066 1! 
16 1067 1! Declares VMS EXIT handler for BASIC. 
164 1308 ze: 
165 196 1 ! CALLING SEQUENCE: 
166 1070 1! 
1of 197] : IF (NOT .BASSS$SL_XIT_LOCK) THEN BASSSDECL_EXITH () 
169 1998 1 ! FORMAL PARAMETERS: 
170 1074 1! 
171 1075 1! NONE 
176 1978 +! 
17 1077 1°! IMPLICIT INPUTS: 
174 1078 1! 
175 1079 1! NONE 
176 1080 1! 
177 1081 1°! IMPLICIT OUTPUTS: 
178 1086 1! 
179 1085 1! NONE 
180 1084 1! 
181 1085 1 ! ROUTINE VALUE: 
\se 1086 1 ! COMPLETION CODES: 
18 1087 1! 
184 1088 1! NONE 
185 1089 1! 
186 1090 1 ! SIDE EFFECTS: 
187 1091 1! 
188 1098 1! Declares VMS EXIT handler. 
189 1093 1 !-- 
190 1094 1 
191 1095 BEGIN 
13 1096 
19 1097 CAL 
194 1098 AST_STATUS 
195 1099 DCLEXH_STATUS; 
196 1100 
197 1101 '¢ 
198 1198 ! We must disable ASTs to be sure that one and only one exit handler 
ib Yt, is declared for BASIC. 
4 1105 AST_STATUS = $SETAST (ENBFLG = 0); 
08 1107 IF ( NOT .BASS$L_XIT_LOCK) 
04 1108 
05 1109 BEGIN 
06 1110 '¢ : 
44 nt) : Initialize EXIT handler control block (must do at run time to be PIC) 
09 118 EXIT BLOCK (1) = EXIT_HANDLER; ! Adr. of EXIT handler to be called on EXIT 
10 1114 EXIT _BLOCK § = 1; ' arg count 
11 1115 EXIT BLOCK = EXIT_REASON; ! adr. to store reason for EXIT 
1g 1116 DCLERH_STATUS = SDCLERH (DESBLK = EXIT_BLOCK); 
21 1117 BASSS$L_XIT_LOCK = 1; 


1 
ASSSEXIT_HANDL 16- $ep-1984 00:26:4 AX-11 Bliss-32 V P 
ie 1-Sep-19 4 40:8 BASRTL.SRC BASEXI On ese: :1 a (38 
> 216 111 END 
5 215 148 ELSE 
; \¢ 1% Y DCLEXH_STATUS = 1; 
; 18 1 ; IF (.AST_STATUS EQL SS$_WASSET) THEN SSETAST (ENBFLG = 1); 
C i i é IF ( NOT .DCLEXH_STATUS) THEN LIBSSTOP (OTSS$_FATINTERR); 
ls 11 RETURN 
s 2 ¢ 11 $ END; 
-TITLE BASSSEXIT_HANDL 
“IDENT \1-016\ 
.PSECT _BASSDATA,NOEXE, PIC,2 
00000 EXIT_ -REASON: ? 
00000000 00000000 00000000 00000000 00004 ExIT BLOCK: 0. 0, 0, 0 
00000000 00014 BASS$SL_XIiT_LOCK:: ° ~ : 
. LONG 0 3 
.EXTRN orss FATINTERR L IBSSTOP 
*EXTRN S$8cB PUSH He BAS$$CB_POP 
eEXTRN SNEXT_LUN, BASSSPOR 10_CLO 
»EXTRN yattiii OSECE Fit 
-EXTRN BASSS$ SS1GNAC_ 10. SYSSSETAST 
SEXTRN Oy SSDCLEX 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
003c 00000 .ENTRY BASSSDECL_EXITH, Save R2,R3,R4,R5 : 1061. 
55 000000006 00 9€ 00002 HOVAB © SYSSSETAST, R : : | 
54 00000000' EF 9E 00009 MOVAB BASS$SL_XIT_LOCK, R4 : 
7E D4 00010 CLRL = = (SP) + 1105 
65 01 FB 00012 CALLS #1, SYSS$SETAST ; 
53 50 DO 0001 MOVL RO, AST STATUS ; 
21 64 ES 00018 BLBS § BASS$L_RIT_LOCK, 1$ : 110 
FAG 0000v CF 3 0018 MOVAB €EXIT_HANDLER, EXIT BLOCK +4 3: 111 
FB AG 01 B 00021 MOVL #i, EXIT _BLOCK+ : 111 
FC 3 AG EC A4& JE 00025 MOVAB EXIT TREASON, EXIT_BLOCK+12 3111 
FO | OAGOS 900 A PUSHAB EXIT~BL OCK : 111 
000000006 00 01 FB 0002D CALLS #1, syssp ; 
52 50 D0 909 MOVL RO, oCLeKn ai; ATU S : 
64 01 00 00037 MOVL #1, BASS$L~XIT_LOCK : 1117 
03 11 OOO03A BRB 2$ ; 1107. 
52 04 DO 0003C 1$: MOVL #1, DCLEXH_STATUS ; 1120 
09 3 D1 O003F 2$: CMPL Ast. STATUS, #9 : 1122) 
5 12 00042 BNEG 3 ; 
1 DD 00044 PUSHL Hi ; 
5 1 FB 0046 CALLS SYSSSETAST ; 
D 2€ 004 3$: LBS Occesn STATUS 4$ + 1124 
000000006 8F DD Oat PUSHL #OTSS fal TERR : 
000000006 00 01 FB 00 3 CALLS . LTBS$ F 
04 00059 4$: RET : 1127 


BASSSEXIT HANDL 


; Routine Size: 


; 2246 


90 bytes, 


1128 «1 


Routine Base: 


-BASSCODE + 0000 


1 
1b-se -1984 
12-Sep-1984 


1 80599 


AX-1 
BASR 


1 Bliss-32 V4.0-74 
TL. ReSeASEXITHAB82;1 


Page 


7 
(3) 


BASSSEXIT_HANDL 


; Routine Size: 


MPWN—-OOO~nNO 


AAMAMAMAAMNMNAANUIUI EE BB 
WN 0 OOO VF WO OOO 


POPoMoPononononononononononononu nnn 


ie 


265 


PEE QDQREDQD_ERM AGA PEE EE EAI 


ae ee ee ed etd 
en a ee ed a aed ed 
gs 

MEUM $0 OONOAUS WAR (OOO NOUE WP" OOONOU SW 00 


K 1 
16-Sep-19 726: AX-11 Bliss-32 v4.0 Pa 8 
12-808- 1383 90:46:38 BASRTL.SRC BASEXITHA, 482; sf = (4) 
ROUT INE 4 ars ae ( ' Exit Handler 
XIT_REASON ' Reason 
) : NOVACUE = 


++ 


FUNCTIONAL DESCRIPTION: 


This is the exit handler for BASIC. Its only function is to 
purge 1/0 buffers and close all files. 


Upon entry, it zeroes BASS$L_XIT_LOCK so that user I/0 in 
exit handlers can get properly cleaned up. 


' 

i 

i 

i 

i 

i 

i 

i 

i 

FORMAL PARAMETERS: 

EXIT_REASON. ri.r not used 
IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

BASSSL_XIT_LOCK is zeroed. 

i 
i 
i 
i 
i 
i 
i 
i 
le 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
Closes all files by calling BASSS$CLOSE_ALL. 


BEGIN 

BASSS$L_XIT_LOCK = 0; ! Clear exit handler interlock 
BASSSCCOSE-ALL (); ; 

END; ! of routine EXIT_HANDLER 


= NOIR 8 nn a nt at at a = ot = = = = ot = = SS 2 St 2 os a 


0000 00000 EXIT — 


D Save woching. : 112 

00000000' fe i. 6000 CLRL BASSSL_XIT 3 116 

0000v CF 0000 CALLS #0, BASSSCCOSE. WALL : 116 
Oe 0000D RET : 116 


14 bytes, Routine Base: _BASSCODE + 005A 


1168 


1 


a 


eee 


BASSSEXIT HANDL 
1-016 


VFWN —O OONOUS WO” 


PIFIFIFAIR IPR IN IAIN IRIN at as sk kk kk kk hd tt 


Rorsrofoneny > — 2 2 2 3 sOOSOOSOOOO OOOO OOO OO O0000000 00000000 0000 ~I ~i wd ad dd dd 
NS ae wd nds OSE ee hGH OOo ee hee eee. 


ee ec ce ec ce ec ee ee ec ee ee me ee ee ee ee a ed ed 


UNOS NAAR WHOS OA RUN 


1 
1h-Sep-1986 00:26:64 AX-11 Bliss-32 vé.0-7 
ett rae aes Me Tet be tg tT re Oe 


14-Sep-1984 


GLOBAL "PARENT PapeeCLOse . ALL (¢ ! Close all files 


NOVALUE i Optional IFI to look for 
= 


lee 
i FUNCTIONAL DESCRIPTION: 


Aes, os gta Fy ‘we gin a linear search aoe h the LUB 

table) or each f the file is open, purge its 1/0 

buffers and close it. if the file has been mar ed. for PRINT 

or DELETE, this will cause proper disposition of t e file, 

RMS will close all ope files at image exit, but it. doesn't know 

spout the above two DISPOSE conditions. We couldn't set them at 
OPEN time, since the user is allow 7. to specify a different 

DISPOSE option at close time (with the ct SE statement). 

Note that BASIC does not yet have CLOSE options, so this code is 

a@ provision for the future. 


i FORMAL PARAMETERS: 


PARENT_IFI.rl.v If present, close att files with M_STREAM s 
and this I. This is used by CLOSE when étosing 
a file which has euttele streams. The calls 
OTSSSCLOSE FILE will actually result ro SDISCONNECTS. 


! IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


{ROUTINE VALUE : 
, Sowier ion CODES: 


NONE 
SIDE EFFECTS: 


Closes all files 
Signals CLOSE + DISCONNECT errors as warnings. 


BEGIN 


TIN 
NULLPARAME TER; 
GLOBAL REGISTER 


CCB = K_CCB_REG : REF BLOCK C, BYTE); 


LOCAL 


LUN; 


BASSSEXIT_ANDL 
1-016 


= 
ViFUN—OOONOUSE 


PAMAMAAMUIVIUIE BEES 
COONS NEW 2OO@NOAVE WN “COO NOUSWR—O”0 


NN 
_— 


POPOPOPIPIPIPIPIPYIPYRIPINIPIPINPIPIPIPINIPIPIPINPY 


POPOPOPOPOPOPIPINONOPO PO NoPofononony 
PAEAEDX®_EMAMAAM Aa & & 


ao 


ke ee a a a a a dd 
oOoeo~n 


woo VFN —OOONO 


SRLS 


WN $9 DONO UE WN $C OBVNOUE WhO 


SAF 


PRIME BB DDD AA A NINN NNN NP NIAAA INE UNE BBE EE PW WII nonoponoryp 


1b-sep-19 4 # 90:86 +66 AX-11 BLi jets aitetit 


14-Sep-1984 BASRTL.SR 
;_ Scan through all BASIC logical units, closing them. 
FLAG = 0; 
dO 
BEGIN 


i Get the next logical unit number. 
BASSSNEXT_LUN (FLAG, LUN); 
IF (.FLAG NEQ 0) 

BEGIN 


'¢ 
i LUN is the next logical unit number. If the file it represents is 
open try to close it. 


BASSSCB_PUSH (.LUN, LUBSK_ILUN_MIN); 
IF (.CCB CLUBSV_OPENED) 
BEGIN 
IF (NULLPARAMETER (1)) 
BEGIN 
IF (.CCB CLUBSV_M_STR_CJ) 
BEGIN 


'¢ 
i Close all the sons of the mother before closing the mother, i.e. if Y and 
i 2 are connected to X, and we are closing X, then we must close ¥ and Z and 
: then close X. 

BASSSCLOSE ALL (.CCB CLUBSW_IFIJ); 
TRY_TO_CLOSE (); 


ELSE 
TRY_TO_CLOSE (); 


END 
ELSE 


'¢ 
' Do the close foctuat ly disconnect) only if 
the IFI matches and this is a connect. 


BAS$$CB_POP (); 
END; 


END 
UNTIL (.FLAG EQL 0); 


wena? (.CCB CLUBSV_M_STREAM) AND (.CCB CLUBSW_IFIJ EQL .PARENT_IFI)) THEN TRY_TO_CLOSE (); 


NA. B82; :1 


BASSSEXIT_WANDL 


i 


1386 
1284 
1285 


18 
OE 
06 AC DO 86—AB 
3; Routine Size: 96 bytes, 


; «384 1286 


1 


RETURN; 
END; 


0804 $069 

SE 08 Ce 4 

04 ae . 0008 

08 AS oF : OA 

000000006 00 02 F 00D 
04 AE OD ° 014 

41 1 017 

50 08 cf 4 hed 

52 6— 00 0001C 
000000006 00 18 Beet 

28 FC =—AB 3 0025 

6¢ H 0029 

05 13 00028 

04 AC 05 0002D 

OF 12 00030 

FF =oAB 03 4 B00 36 
7E DO 8=6AB 65C 0003 

C1 AF 01 FB 00038 
+3 11 0003F 

FF =AB 02 €1 00041 
10 00 ED 00046 

05 12 00040 

0000v CF 00 FB 0004F 
000000006 00 19 00054 

04 AE 05 0005A 

A9 12 00050 

04 0005F 


Routine Base: _BASSCODE + 0068 


1 


N 1 
1erSep-198e 11:8e:5) — EBASRTLoSAeSBASEXI fnaB82; 1 


! of routine BASSSCLOSE_ALL 


BASSSCLOSE_ALL, Save R2,R11 
#8, SP 
FLAG 


FLAG 
#2, BASSS$NEXT_LUN 
FLAG 


6 

#8, RO 

LUN, R2 
BAS§SCB_PUSH 
=4(CCB)> 5$ 


2$ 
4(AP) 


#3, -1(CCB), 4$ 
-48(CCB), -(SP) 
#1, BASS$CLOSE_ALL 


#2, -1(CCB), 5$ 
#0, #16, -48(CCB), PARENT_IFI 


#0, TRY_TO_CLOSE 
BAS$$(B_POP 
FLAG 


Page 11 


(5) 


a a | ee 


2 
| BASSSEXIT_HANDL 18-Sep-1984 90: 26:46 ere Bliss-32 vi tee at Page 12 
| 1-016 14-Sep-1984 11:54:5 BASRTL.SRCIJBASEXITHA.B32;1 (6) 
; 386 1 e 1 ROUTINE TRY_TO_CLOSE ! Call OTSSSCLOSE_FILE with errors as warnings 
3 Ser 1288 #1 : CALL _CCB™NOVALUE = 
s See 1289 1 
; 389 1290 1 !4¢ 
: ey : 4 : FUNCTIONAL DESCRIPTION: 
: 4 1 38 1! RMS CLOSE a file aa calling OTSSSCLOSE_FILE) but signal errors as warnings, to 
3 it : oe : avoid Losing control. 
; De 1296 1 ! FORMAL PARAMETERS: 
; 396 1297 1! 
[3 97 1298 1! NONE 
; 398 1299 1! 
; 399 1300 1 ! IMPLICIT INPUTS: 
; 400 130) s. ‘ ; 
; rit 1306 : ccB Pointer to the LUB/ISB/RAB of the file to CLOSE. 
: 40 1304 1 ! IMPLICIT OUTPUTS: 
; 404 1305 1! 
; 405 1306 1! NONE 
; 406 1307 1! 
: 407 1308 1 ! ROUTINE VALUE: 
; 408 1309 1 ! COMPLETION CODES: 
: 409 1310 1! 
; 410 1311 1! NONE 
3 (411 aig 2s 
3 412 1313 1 ! SIDE EFFECTS: 
> 413 1314 1! 
: 414 1315 1! RMS CLOSEs the file. ; 
: 415 1316 1! Signals CLOSE errors as warnings. 
; 416 1317 1 !=- 
: 417 1318 1 
; «64418 1319 2 BEGIN 
; 419 1320 § 
; 420 1321 EXTERNAL REGISTER 
: 421 1322 2 CCB : REF BLOCK C, BYTE); 
: 422 1323 2 
> 423 1324 2 ENABLE 
3 426 1325 2 CLOSE_HANDLER (); 
: 425 1326 2 
: 426 ho ge ee ; 
: 427 1328 2 ! Write output buffers, then RMS CLOSE the file. 
; 428 1329 2 !- 
: ‘ 4 1330 BASS$PUR_IO_CLO (); 
: oe) 1336 § IF ( NOT OTSSSCLOSE_FILE ()) THEN BASSSSIGNAL_IO (BASSK_IOERR_REC); 
3; 43 1334 2 RETURN; 
3; 434 1335 1 END; 
0000 00000 TRY_TO_CLOSE: : 
-WORD Save nothing 5 1e82 
6D 001D CF DE 00002 MOVAL 2%, (FP) 1319 
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ROUTINE CLOSE_HANDLER ( 


-Sep-1984 BASRTL.SRCJBASEXITHA 
! Handle an error from CLOSE_ALL 
° ! Signal vector 
MECH, ! Mechanism vector 
ae ENBL ! Enable vector 


++ 
! FUNCTIONAL DESCRIPTION: 


If we get an error crying te close a file in CLOSE ALL, convert the severity 
of the error to WARNING Cif it is ERROR or SEVERE ERROR) so that we will not 
lose control. It is important not to lose control so that we can try (at least) 
to close all the files. 

FORMAL PARAMETERS: 
$1G.rl.a A counted vector of parameters to LIBSSIGNAL/STOP 
MECH. rl.a A counted vector of info from CHF 
ENBL.ra.a A counted vector of ENABLE argument addresses. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 

Always SS$_RESIGNAL, which is ignored when unwinding. 

SIDE EFFECTS: 

Reduces the severity of the error to WARNING. 


BEGIN 


MAP 
SIG : REF VECTOR, 
MECH : REF VECTOR, 
ENBL : REF VECTOR; 


LOCAL 
COND_VALUE : BLOCK (4, BYTE); 


COND_VALUE = .SIG (1); 
If the severity is ERROR or SEVERE ERROR, convert it to WARNING. 


cLetipe -COND_VALUE CSTSS$V_SEVERITY] OF 


CSTSSK_ERROR, STSSK_SEVERE) : 


Dd 2 
12-300=13 4 90: 86:6 ret Bliss-32 Viiba 6$2:1 
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; 493 1393 BEGIN 
: 494 1394 COND VALUE CSTSS$V_SEVERITY] = STSSK_WARNING; 
; 495 1395 SIG [1] = .COND_VALUE; 
3 re 139 END; 
; 49 139 
; 498 1598 COTHERWISE) 
; 499 1399 — 
; $00 1400 
; 23) 1401 END; 
: S es TES; 
; 140 
; 504 1404 RETURN (SS$_RESIGNAL); 
; 505 1405 END; ! end of CLOSE_HANDLER 
0000 00000 CLOSE_HANDLER: 
-WORD Save ~ sae 
50 04 AC DO 00002 MOVL $1G 
51 04 Ad DO 00006 MOVE G(R uy COND_ VALUE 
02 51 03 00 ED 0000A CMPZV #8, CONB_VALUE, #2 
07 13 0000 EQL 
04 51 03 00 €ED 00011 CMPZV Ny #3, COND_VALUE, #4 
07 12 00016 BNEQ 2$ 
51 07 8A 00018 1$: BICB2 #7, COND_VALUE 
04 Ad 51 DO 00018 MOVL COND VALOE, 4(RO) 
50 0918 8F 3C OOOIF 2$: MOVZWL #2328, RO 
04 00024 RET 

; Routine Size: 37 bytes, Routine Base: _BASSCODE + OOFB 
> 506 1406 1 END ! End of BASSSEXIT_HANDL module 
; 507 1407 
: 508 1408 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
; —BASSDATA 24 wiVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Pig -M lente? 
3 =BASSCODE : 288 NOVEC eNOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
3 : eoceeses Syabols oo--e<-- Pages Processing 
; File Total Loaded Percent Mapped Time 


pe 


eR SG ee ee s SO ES 


F 
| BASSSEX1T_HANDL 16-Sep-1984 00: 26:86 VAX-11 Bliss-32 Te Page 
1-016 14-Sep-1984 11:54:5 CBASRTL.SRCIJBASEXITHA.B32;1 
: -$255$D0UA28: CSYSLIBISTARLET.L32;1 9776 10 0 581 00:01.2 
3 COMMAND QUALIFIERS 
; SLESS/CHECK= (FIELD, INITIAL OPT IAIZE) /NOTRACE/LISHL 1$8 :BASERI THA/OBJ=08 58 :BASEXI THA MSRC$:BASEXI THA/UPDATE=(ENH$:BASEXITHA 
Size: 288 code + 24 data bytes 
Time: 0 


Run 712. 
Elapsed Time: a -2 
Lines/CPU Min: 7028 
Lexemes/CPU-Min: 31202 
mene Used: 115 pages 
Compilation Complete 
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